38888 


ASAAOAAAOAAAOOOO 
AOOOIOOAOAAOOOOAO 
AOAAAAOAOAOOAONY 


SSSSSSSsss 


AAA AA Ht St tH A 2— 
AAA St A ————— ————— 
AAAS AS a a st st se 


L 

LLLLLLLLLLLLLLL 
LLELLLLLLLLLELLLL 
LLLLLLLLLLLLLLL 


ad 


— — — — — — — — — — — — — — — — — 


**F ILE**1D**COBCVTPQ 

cccccccc 000000 BBBBBBBB cccccccc CV VV IIIIIIIIII PPPPPPPP QQqQaQ 
cccccccc 000000 BBBBBBBB ccccccce vv VV TTTTTTTTTT PPPPPPPP 00000 

cc 00 00 88 BB CC VV VV TT PP PP QQ QQ 

cc 00 00 88 BB CC VV VV TT PP PP QQ QQ 

cc 00 00 88 BB CC VV VV TT PP PP QQ QQ 

cc 00 00 68 BB CC VV VV TT PP PP QQ QQ 

cc 00 00 88888868 cc VV VV TT PPPPPPPP QQ QQ 

cc 00 00 868 cc VV vv TT PPPPPPPP QQ QQ 

cc 00 00 688 BB CC VV VV TT PP QQ QQ aa 

cc 00 00 88 BB CC VV VV TT PP QQ QQ QQ 

cc 00 00 8B BB CC VV VV TT PP QQ QQ —X 

cc 00 00 6B BB CC VW VV TT PP QQ QQ eee 
cccccccc 000000 BBBBBBBB cccccccc VV TT PP QQQqQg Qa cove 
ccccccce 000000 cccccccc VV TT PP odooo aa eeee 

LL IIIT] SSSSSSSS 

LL 111411 SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL 111111 SSSSSSSS 
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able of fontents 
(2) ; Detailed Current Edit History 


8 HISTOR 
(3) 8 DECLARATION 
(4) 101 COBSCVTPQ_R 


ABSTRACT: 
This module contains the routine which converts signed packed 
decimal numbers to quadword (64-bit) binary. 


VERSION: 1 
HISTORY: 


AUTHOR: 
John Sauter, 16-JAN-1979 


MODIFIED BY: 


COBSCVTPQ_R9 COBOL Convert Packed to Quad 15-SEP-1984 23:39:37 YAX/VMS Macro v04-00 Page 1 
1-006 5-88-1383 93:23:35 LCOBRTL. SRETCOBCVTPO.MAR: 1 . (1) 
1 TITLE CORRE YT POR? COBOL Convert Packed to Quad 
§ IDENT /1-006/ 3 File: COBCVTPQ.MAR 
09 : — 
3* 
00 6 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
8 3 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
8 * ALL RIGHTS RESERVED. - 
00 1 :* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
B08 § 3* ONLY IN ACCORDANCE WITH THE TERMS OF SU LICENSE AND WITH THE * 
3* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
000 4 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
000 5 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
999 § —* TRANSFERRED. . 
000 8 :* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
000 9 3;* AN HOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
8 3* CORPORATION. «* 
3* * 
000 ; 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
8 :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ⸗ 
3 ® 
009 é A Te eT ae OEE ETT ET ET 
00 8 i FACILITY: COBOL TYPE CONVERSION 
0 
4 
5 
6 
7 
8 
9 
0 
4 
5 
6 


000000000000⏑O 14⏑⏑ 


———— — — ————— 


SooooooooooooooooSoSo 
Sete Ge Se Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Se 


SOOoQoooooooooooooooo 
SooooooooooooooosoSao 
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zt SERINE HEE 


COBSCVTPO_RO 
1 ; Detailed Current Edit History 6-SEP-19 


8 
+o 
or 


Ooooo <o- 


zo 
— 
— 


Edit History for Version 1 of COBCVTPQ 
- Original. JBS 16-JAN-1979 


19 digit * MLJ 13-Mar- 
Correct prob 


oooocooo 


1 
§ 
4 
5 
6 


Cosmetic changes. RKR 18-0CT- 


AX/VMS Macro v04-00 
COBRTL.SRCJCOBCVTPQ.MAR; 1 


-SBTTL HISTORY ; Detailed Current Edit History 


Bug fixes and cleanup. MLJ icone 
1979 


em with high order longword. 22-Mar-1979 
Correct round towards zero copien. PDG 12-Jul-1979 


roe 
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t Packed to Quad 15-SEP-1984 7:39:37 VAX/VMS M 
: 66-SEP-1984 93:33:34 Re 


-SBTTL DECLARATIONS 


OBSCVTPQ_R9 
=006 


ro V04-00 Page ; 
COBRTL.SRCIJCOBCVTPQ.MAR; 1 (3) 


oc 
2e 
“on 


; INCLUDE FILES: 


: EXTERNAL SYMBOLS: 
NONE 


t PSECT DECLARATIONS: 
.PSECT _COBSCODE PIC, SHR, LONG, EXE, NOWRT 


0000 
: EQUATED SYMBOLS: 
: NONE 


> OWN STORAGE: 


3+ 
3; The fol Loying constant has the value 2**32. It is used for scaling 
; the high 32 bits and for compensating for unsigned arithmetic. 


BIAS: PACKED 4294967296 20032 


: The following constant is 2**32-1. It's subtracted from negative numbers, 
; to compensate for rounding towards zero. 


BIAS_1: .PACKED 4294967295 | 
BIAS-DIGITS=10 | 


6C 29 67 49 29 04 


5C 29 67 49 29 04 
0000000A 


SOOoOSCOOCOCOOOSOSOSOSOSOSOSOSOSOSOSOSOOSSOOOOOOOOOOOOSOOOO 
AAGAAAAOOSOSOOCOSOSOSCCOSCOCOSOSOSOSOOSOSCSOOSOOOOOOOOOSOO 3 


SOoOoOOOOOOOSOSCOSOSOOSOOSOSOSOSOOOSSoOO 


OOQooooooooooooooooooooooooo 
WONAUE NAME ODNOAUS WN OOONOULS WO 


WOO OOOO 0000909 09 69 69 09 69 09 09 09 SI NII NINN NIAAA AAAAAAO 
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1-006 EOBSCVTPO. RS —— 333 — SREICOBCVTPO.MAR: 1 
p ¢ } 1 -SBTTL COBSCVTPG_R9 
te 5 ++ 
: ! : : FUNCTIONAL DESCRIPTION: 
a9¢ : § ; Converts packed to quadword (64-bit integer) 
0 c 108 ; CALLING SEQUENCE: 
a9¢ VY : JSB COBSCVTPQ_RO (scale.rl.v, srclen.rl.v, src.rp.r, dst.wq.r) 
090¢ \\¢ ; Arguments are passed in R6, R7, RB and RI. 
990¢ 114 : INPUT PARAMETERS: 
000C 138 : SCALE.rl.v The power of ten by which the internal 
9000 117; reeresrotation of the source must be 
9000 118; multiplied to scale the same as the 
900 119; internal representation of the dest. 
9006 120; SRCLEN.rl.v The number of digits in the source 
$4 : 1 : SRC.rp.r The number to be converted 
000c 1 : : IMPLICIT INPUTS: 
QO00C 124; 
gzdt ALL of the trap bits in the PSL are assumed off. 
000C 127 : OUTPUT PARAMETERS: 
9000 128; 
44 : 4 3 DST.wa.r The place to store the converted number 
000C 131 : IMPLICIT OUTPUTS: 
oooc 1 ¢ : 
000C 133; NONE 
9000 134; 
000C 135 ; FUNCTION VALUE: 
000C 136; 
000C 137 3 1 = SUCCESS, 0 = FAILURE 
000C 138; 
000C 139 ; SIDE EFFECTS: 
000C 140; . 
Bebe 141 ; Destroys registers RO through R9. 
00C 136 3 
000C 143 ;-- 
Bebe 144 
C 145 
000C 138 COBSCVTPQ_R9:: 
35 18 ce 9000 14 SOBL2 #24,SP 3; Make room for temp storage 
Se fF &@ 24.3 56 F8 OOOF 148 ASHP R6,R7,(R8B),#0,419, (SP) |; Scale and integerize number 
pie 149 3 (also clears RO ‘ 
OD 1D O18 139 3 BVS 11$ : If overflow, won't fit in 64 bits 
801 13¢ : Since quadwords often have their nign 32 bits unused, try to convert 
01 153 ; the packed number to a longword. If it succeeds, we need only spread 
3 13 3 the sign bit. If it fails we will have more work to do. 
69 6& 13 36 1 136 ; CVTPL #19,(SP),(R9) ; Convert to longword 
7 #865 : (also clears RO) 
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1-006 COBSCVTPQ_R9 66-SEP-1984 ; 43:23 (CCOBRTL.SRCJCOBCVTPQ.MAR;1 . 
1 1¢ 3=—(15 BvVS 10 ; Can't fit in 32 bits 
69 89 €1 er iB 4 138 ASHL £81, (RO) +, (RD ; Success: spread sign b bit 
g D 160 INCL : Indicate success, RO 
ee. — 0 161 11$ AdDLe #24,SP ; Remove temp storage 
8 oe RSB 3; Return to caller. 
8 9 164 x cone here if phe packed number *1 t fit in 32 bits. 
: 4 192 : Divide by 2**32 to get the high 32 bits of the quadword. 
06 09 AE 9 0029 189 10s: BLBC 9(SP),13$ Hy skip if 5 peottrve 
6E i DS AF OA $ 0 4 168 SUBP4 #BIAS “DIGITS ,BIAS_1 #19, (SP) e more negative 
13 6 #13 =«9 MF oe OA 0 : 169 13$: V #BIAS-DIGITS BIAS.#19, (SP), 9: 13t8p) 
04 49 65 if 36 003C 170 CVTPL #19,(R5),4(R9) : Convert & store high bits (clears RO) 
02 1D 0041 = 171 BVS 12$ ; Number too large for a 64-bit integer 
50 D6 88 3 INCL RO 3 Indicate success, RO = 1 
5E 18 CO 004 173 12$ ADDL2 #24,SP ; Remove temp storage 
05 0048 174 RSB 3; Return to caller 
0049 175 
0049 176 END 
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ymbol table 66-SEP-1984 7:43:23 (CCOBRTL.SRCICOBCVTPQ.MAR; 1 (4) 
BIAS 0000000 R 4 
BIAS_1 8 6 R 1 
BIAS DIGITS = : A 
COBSCVTPQ_R9 00000C RG 01 


$ 
! Psect synopsis ! 
boesesoaeoer mon cream oe 


PSECT name Allocation PSECT No. Attributes 


4444 ( 43 00 ¢ 9.) NOPIC USR CON ABS LCL 
000049 ¢ 735.) O1¢ 1.) PIC USR CON REL LCL 


dere ewmece mae een ewe mosceamon + 
! Performance indicators H 


poeececcccccocccccoe | scccce 


NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SHR EXE RD NOWRT NOVEC LONG 


Phase Page faults CPU Time Elapsed Time 


Initialization 29 98 + 8080-06 00:00:00.95 
Command processing 108 00:00:00.34 —83883 
Pass 1 70 00:00:00.29 00:00:03.31 
Symbol table sort 0 00:00:00.01 00:00:00.01 
Pass 2 44 00:00:00.25 —888: 
Symbol table output 00:00:00.01 0:00:00.01 
Psect synopsis output 00:00:00.01 00:00:00.01 
Cross-reference output ! —338: 00:00:00.00 
Assembler run totals 25 00:00:00.97 00:00:10.11 


The working set Limit was 900 pages. 

2087 bytes (5 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 4 non-local and 4 local symbols. 
176 source Lines were read in Pass 1, producing 8 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


———4 


Macro Library statistics : 


Macro library name Macros defined 
“S$255SDUAZ8:(SYSLIBISTARLET.MLB:2 J 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:COBCVTPQ/0BJ=OBJ$:COBCVTPQ MSRC$:COBCVTPQ/UPDATE=(ENHS: COBCVTPQ) 


‘AH-BT13A-SE NT CORPORATION 
VAX/VMS V4.0 | D_ PROPRIETARY 


0061 


